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6 * tek PREREQUISITES * KK * 201 ** *x 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR D3C00) ek 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE are INVOKE, TO OBTAIN THE PROPER * & 
9 * * 204 ** PARAMETERS TO PASS TO THE TO! AND T6 PASS TO THE OPERATOR *x 
10 3 IR I III IO IC III III IR ok igi aio doko ak dak ak aie aie aie ac ako 205 ** THE INDICATED MESSAGE(S). THERE APE FOR TABLES USED FOR THIS ** 
11 * x 206 ** PURPOSE THEY APE: ** 
12 * * Ke * MODIFICATIONS eK Ik x 207 ** ** 
13 * * 208 ** STEP AND RULE ADDFPESS TABLE * & 
14 * CHANGES MADE TO MEET PROGRAM REQUIREMENTS * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND ** 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBEF OF THAT RULE. * 
V6 He MM A 2 Ae He i he ie oe he He he 3h ee he he a hc ee he He i he ae 2c 2 he fe a 2c 2c he eo he he hc he fe 2h he he ace ae he oe ake ate he oe oc ke oe ik fe oe 2 211 ** ENTRIES ARE AS FOLLOWES * & 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA ** 
18 * XK REA'S INCORPORATED He * 213 ** B THE STEP NUMBER IN DECIMAL kK 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * NONE * 215 ** ** 
21 * * 216 ** RULE INFORMATION TABLE ** 
DD RAR He He He ee Re ee He he ae He he Ree 3 oe ee Oe he eo Re hee a ae i fe oe he 2h 2 Re 2 oe oe a ae oe i eK 2 oe ak eo oe 217 ** THIS TARLE CONTAINES THE REQUIRED TNFORMATION TO EXECUTE * x 
23 * * 218 ** THE APPROPRIATE FULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * a SPECIAL TNSTRUCTIONS KKK 5 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS ** 
25 * x 220 ** INDICATED WITH A X'OOOO!t FOR THE ROLE EQUATE. aK 
26 * NONE * 221 ** * & 
27 * * 222 ** SQUES *x 
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29 * * 224 ** a ADDRESS OF THE YES LEG RULE * & 
30 * eK E. C. HISTORY KK * 225 ** OK 
31 * * 226 ** SFIXT *x 
32 * DATE OIMAR78 DATE DATE * 227 ** 3} KULE EQUATE X'0101! * * 
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QS He he He Re a ae ah he he he he he he ee oe ee a oe oe ee ie 3 2 ee ae 2 ah hc a ae hc ee 2 i ae 2K oe 2 ae oe oe aK Fe 2 2 ok a ok i oc 230 ** $STOP **& 
002500 37 17808 STAPT X'*'2500! START ADDRESS OF ALL 'I* TYPE PROG 231 ** B} RULE EQUATE X'0102'! ** 
000100 38 @QUES EQU X'0100'° EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE * x 
000101 39 OFIXT EQU X'0101! EQUATED VALUE FOR MDI STATEMENT 233 ** ** 
000102 40 @aSTOP EQU X'0102'! FQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * * 
000200 41 @GOTO EQU X¥'0200'! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE ECUATE X*0200! * te 
000201 42 @CALL EQU X'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * x 
000300 43 @INPT EQU X'0300'! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO * 
000400 KU @OUXX U X'OUOO! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE *& 
000500 45 @aTuUxx EQU X'0500'! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000600 86 A@NVLD EOQU X'0600! EQUATED VALUE FOR MDI STATEMENT 241 ** ** 
000000 47 EQ EQU X'0000' EQUATE FOR EQUAL 242 ** SCALL * 
000004 48 NE EQU Xx'O004! EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201' * & 
000008 49 HI EQOU X'O0008' EQUATE FOR 244 ** B) ADDFES F MESSAGE ** 
QO0000C 50 NH EQU X'OOOC! EQUATE FOR NOT HIGH 24H5 ** C) NAME OF MAP TO CALL ** 
000010 51 LO EQU X¥'0010! EQUATE FOR 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'0014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTEPNAL OF INTERNAL REFERENCE ek 
000010 53 LT EQU x'0010! EQUATE FOR LESS THAN 2Y8B ** xx 
00000C 54 LE EQU x'oo0oc! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU xX'O0008! EQUATE FCR GREATER THAN 250 ** A) RULE EQUATE xX'!0300! ** 
000014 56 GE EQU X'*00148 EQUATE FOR GPEATER THAN OF EQUAL TO 251 ** B) YNPUT TYPE (EBCDIC OR HFX) ee 
000200 57 ON EQU X'0200! EQUATE FOR ON 252 ** C) ADDRESS OF LEG RULE % 
000202 58 OF EOU X¥'0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * 
000204 59 MX EQU X'0204'! EQUATE FOR MIXED 254 *% E) LENGTH OF INPUT DATA ** 
000000 60 EBC EQU X*'0000* EQUATE FOR EBCDIC DATA [RANSFER 255 ** F) LOWER LIMIT OF GOOD DATA ** 
000001 61 HEX EQU X'OO00O1! EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA *& 
000001 62 XTENL EQU X'O0001'! EQUATE FOR EXTERNAL REFERENCE 257 ** * x 
000000 63 INTRNL EQU X'0000! EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX xk 
000000 64 PAFM EQU Xx'00005 EQUATE INDICATING PARAMETER 259 ** A) PULE EQUATE xX'O4OO! ae 
000001 65 DA EQU xX'0001' EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * & 
000002 66 UA EQU X'0002! EQUATE FOR UNIT ADDRESS 261 ** Cc TU BRANCH TO ADDRESS eeCONaAL ae A 
000000 67 DUMMY FOU X' 0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS Peer ee. Y) * * 
001800 69 FID EQU *—X¥ 'QD00! ADDRESS OF MDI HEADEP 263 ** E) LENGTH OF PARAMETER I BYT x 
000232 70 PTYPE EQU *=-X"22CEt ADDRESS OF FROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU *& 
Q0180C 71 STEPNUM £EOQU PID+xX'OQOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
QO0180E 72 OPWD1 EOQU PID+X*'OOOE!® ADDRESS OF OPTION WORD ONE 266 ** * * 
0018 10 73 OPWD2 EQU PID+xX*0010! ADDRESS OF OPTION WORD TWO \ 267 ** STUXX la 
001818 74 TOSTATUS EQOU PID+x'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X*'0500'! aK 
OO181A 75 TUWORK EQU PID4+X'OOTA® ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * & 
00189A 76 TUPARMT EQU PID+X'OO9A!* ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS ** 
00189C 77 TUPARM2 EQU PID+4+x*oo0gCc! ADDRESS OF PARM 2 POINTER 271 ** D Zl E OF COMPARE TO MAKE ON RESULTS * & 
Q00189E 78 TUPARM3 EQU PID+X'OO9E! ADDFESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESUL x 
0018A0 79 TUPARMY EQU PID4+X'OQOOAO! ADDRESS OF PAPRM 4Y POINTER 273 ** F) MASK FIELD FOR COM ** 
Q0018A2 80 TUPARMS EQU PID+X*QOA2!* ADDRESS OF PAPRM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ek 
0018 A4 81 TUPARM6 EQU PID4#X'OOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU ** 
0018A6 82 THUPARM7 EQU PID+X*OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STOPE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A8 83 TOPARM8 EQU PID+X'QOAS8! ADDRESS OF PARM 8 POINTER 277 ** *x* 
QO18AA 84 TUPARMY EQU PID+X'OOAA'* ADDRESS OF PARM 9 POINTER 278 ** SNVLD *% 
QOO18AC 85 TUPARM10 EQU PID+X*OOACt ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*0600! *x 
QOO18AE 86 TUPARM11 EQU PID+X"OOAE!® ADDRESS OF PARM 11 POINTER 281 ** * 
0018B0 87 TUPAPM12 EQU PID+xX*'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ** 
0018B2 88 TUPARM13 FOU PID4+X*QOB2° ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ee 
0018 B4 89 TUPARM14 EQU PID#xX*OOB4!? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE *& 
0018 B6 ‘90 TUPARM15 EQU PID+X*OQOB6'! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 at PID+X*OOBS8*t ADDPESS OF PARM 16 POINTER 286 ** a & 
OO18BA 92 TUMSGWTR EQU PID+X"OOBA!? ADDKESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT *e 
OO18 BE 93 TOUA FOU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+xX*0O0CO! ADDRESS OF DEVICE ADDPESS IN EBC 289 ** xx 
0018C2 95 TUBUFF EQU PID+x*O00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xXx*tO00O00* ** 
0018C4 96 TULAST EOU PTD#+X*OOCY! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TURESULN EQU PID+x*OOC6E!t ADDRESS OF LENGTH OF TU PESULTS | 292 ** MESSAGE TABLE xe 
0018C8 98 TURESUL EQU PID+xX*O0C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * & 
Q0018FC 99 MAPNAME EQUD PID#X*OOFC! ADDPFESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: ** 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF SINPT DATA 295 ** oe 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF S$INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK *% 
0019B8 102 @DCADD1 EQU PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ee 
O0O019BA 103 @DCADD2 EQU PID+X'O1BA! MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE ee 
0019C4 104 SUPSTAT EQU PID+x'O1C4! ADDRESS OF MDI STATUS ' 299 ** D) FIRST LINE OF MESSAGE we 
0019D0 105 DEVADD FOU PID+xX'O1D0'! ADDRESS OF DEVICE ADDFPFESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ek 
OO19DA 106 DEVADD1 EQU PID#+X*O1DA? ADDRESS OF DEVICE ADDRESS TABLE 1 | 301 ** F SECOND LINE OF MESSAGE ee 
OOT9EY 107 DEVADD2 EQU PID+X'O1E4!? ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ** 
QO19EE 108 DEVADD3 EQU PID+X'O1MEE! ADDRESS OF DEVICE ADDRESS TABLE 3 | 303 ** ** 
0019 F8 109 DEVADD4& EOU PID+X*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 SOG RR RK RK KKH KK KKK RK KKK KK KKK KKK KKK KKK EKKRKKEKKKREK KEKEKKKK KKK K KEK KEKE 
OO1TA02 110 DEVADDS EOU PID+xX*'02028 ADDRESS OF DEVICE ADDRESS TABLE 5 BOS eR HM He a a a KK KR KK KK KKK KK RK KK KK RMEKKKKEREKKKE EES 
001A0C 111 DEVADD6 EOD PID+x'O20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 112 DEVADD7 7 Tih ze eee" ADDRESS OF DEVICE ADDRESS TABLE 7 
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OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM > ORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT ITEM CORP 1976 
0001 1220 DC Arte 000002 1338 IDLE EQU 2 IDLE SVC 
0012 1221 DC A (0 18) 000003 1339 ASCII EQU 3 HEX TO ASCII SVC 
TDIDDSDETDTIDYOCIE 1222 DC CLOOMWBEtt it rNotttt! TS NOT VALID. 000004 1340 CHNGE EQU 4 CHANGE LEVEL SVC zs 
1223 F00323 EQU * 000005 1341 PGMCK EQOU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
0002 1224 DC AL2 (0002) 000006 1342 EXIT EQU 6 EXIT SVC 
002C 1225 pc A (0044) 000007 1343 TERM EQU 7 TERMINATE SVC 
CODSE2ZE3CID3D340F 1226 DC CLOOYYTINSTALL 4962 CABLES ON ATTACHMENT CARD. RON ! 000008 1344 RESET EQU 8 RESET DEVICE SVC 
0018 1227 DC B (0024) 000009 1345 RI EQOU 9 READ ID SVC 
DUCIDTFIFSFOFT4OC 1228 DC CLOO24"*MAP7801 FOR MORE TESTING! OOOOOA 1346 START EOU 10 START CYCLE STEAL SVC 
1229 HDIT 0000 OOOO0OB 1347 STCSS EOU 11 START CYCLE STEAL STATUS SVC 
0000 1231+OPTN1 DC x'ooo0ot PROGRAM OPTION CONTROL WORD 1 00000C 1348 PREP EQU 12 PREPARE DEVICE SVC 
1232+* 00000D 1349 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
0000 1233+OPTN2 DC X'0000! PROGPAM OPTION CONTROL WORD 2 OOOOOE 1350 READ1 EQU 14 READ WITH FUNCTION BIT 3 OWN SVC 
1234+* RIT HEX OOOO0F 1351 RSTAT EQU 15 READ STATUS SVC 
1235+B48 EQU 16 0 8 PROBLEM PKOGRAM CONTROL BITS 000010 1352 WRITO EQOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
1236+B49 EQU 17 1 4 * 000011 1353 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
1237+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 000012 1354 CTRL EQU 18 CONTROL SVC 
$238+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 1355 RICB EQU 19 RELFASE INTERUPT CONTROL BLOCK SVC 
1239+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 1356 CICB EQU 20 CONNECT INTFRUPT CONTROL BLOCK SVC 
1240+8B53 EQU 21 5 4 * 000015 1357 HIO EQU 21 HALT ALL I/0 
1241+B54 EQU 22 6 2 * 000016 1358 RECSD EQU 22 RECUEST USE OF DCP DISK SVC 
1242+8B55 EQU 23 7 1 * 000017 1359 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
1243+B56 EQU 24 8 8 * 000018 1360 HALT EQU 24 HALT SVC 
12444+B57 EQU 25 9 4 * 000019 1361 ETOH EQU 25 EBCDIC TO HEX SVC STRING) 
1245+B58 ay 26 10 2 * OOOO1A 1362 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
1246+B59 EQU 27 11 1 * 00001B 1363 ATOH EQUD 27 ASCIY TO HEX SVC TRING 
124 7+B60 EQU 28 12 8 * O0001C 1364 HTOA EOQU 28 HEX TO ASCIY SVC (STRING 
1248+B61 EQU 29 13 4 * 00001D 1365 ETOA EQU 29 EBCDIC TO ASCII SVC (Sir NG 
1249+B62 EQU 30 14 2 * OOOO TE 1366 ATOE EQU 30 ASCII TO EBCDIC SVC STRING 
1250+B63 EOU 31 15 1 * OOO001TF 1367 READI EOQU 31 PEAD DATA SETS FOR MDI/UTIL 
1251+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 1368 WRITI EQOU 32 WRITE DATA SETS FOR UTIL 
1252+CMFP EOU 31 15 1 COMPARE OPFRATION 137 0) HR HH HH RE RR RR RH i Re eB a Re i ee aK a a 2 oe i aK ee ak i oe aK ai ee ak 
0000 1254+O0PTN3 DC X'O000 PROGRAM OPTION CONTROL WORD 3 1371 * * 
1255+* 1372 * EQUATES USED BY TU'S AS CONSTANTS * 
1256+* OO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 1373 * * 
1257+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 1374 OR IR RR I IO IO CIO OR I ae at dea eke dc ke ok ak 
1258+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERP CE OOOOYE 1375 PLUS FEQU Ct+t PLUS CHAR 
1259+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) TSBON 000060 1376 MINUS EQOU Cct—t MINUS CHAR 
1260+* 000000 1378 ZERO EQU 0 
1261+* 4 EXPECTED ERPF/SATTENT XE 12 TEST UNIT RESULTS VOTD NG 000001 1379 ONE EQU 1 
1252+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR Tocc 000002 1380 0 EQU 2 
1263+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 000003 1381 THREE EOQU 3 
1264+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000004 1382 FOUR EOQU 4 
1265+* BIT HEX 000005 1383 FIVE EQU 5 
12664MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 1384 STIX EQU 6 
1267+ER EQU 33 1 4 ERROP RECEIVED ON INTERRUPT 000007 1285 SEVEN EQU 7 
1268+4+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 1386 EIGHT EQOU 8 
1269+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 1387 NINE EQU 9 
1270+XE EQ U 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 1388 TEN EQU 10 
1271+HE EOU 37 5 4 HARD ERROR, 8 RETRIES 0O0000B 1389 ELEVN EQU 11 11 
1272+$LE EQU 38 6 2 INTEFRUPT ON WRONG LEVEL FRROR 00000c 1390 TWELV EOQU 12 12 
1273+4+NI EQU 39 7 1 NO INTERRUPT EXPECTFD E O00000D 1391 THRIN EQU 13 13 
1274+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOO00F 1392 FIVTN EQU 15 15 
12754*CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 000010 1393 SIXTN EQOU 1€ 16 
1276+CE EQU 4? 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 000020 1394 THRY2 EQU 32 32 
1277+ISBON EQOU 43 11 1 ISB BITS ON pets 3 000040 1395 SIXT4 EOU 64 64 
1278+N EQU uy 12 8 TEST UNIT RESULTS NO GOOD 000080 1396 CNE28 EQU 128 128 
12794+IOCC EQU 45 13 4 OIO CC ERROR 000100 1397 TWOS6 EOU 256 256 
1280+NOIN EOQOU 46 14 2 NO INTERRUPT 000400 1398 ONEK EQU 1024 1024 
1281+INCC EQU 7 15 1 INTERRUPT CC ERROR 000800 1399 TWOK EOU 2048 2048 
1282+* 000C00 1400 THREK EQU 3072 3072 
1283+* COMMON BUFFER FOR PRINTING DATA 001000 1401 FOURK EQU 4096 4096 
1284+* FFFFFF 1403 M1 EQU -1 -1 
0000 1286+5TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 1404 M2 EQU -? ~2 
0000 12874+SIOIN DC A (*-* T/O AND INTFP CONDITION CODES FFFFFD 1405 M3 EQU -3 =3 
0000 1288+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS FFFFFC 1406 M4 EQU -4 -4 
0000 12894+LSTIO DC A (*-* ADRS OF LAST I/O + 4 RYTES 1008 30 RIO IO OI I IOI OI IC RE 22 fade giok ak dake fi ak ok ak 
0000 1290+DEV1I DC A (*¥-* DEVICE DEPENDENT DATA 1409 * * 
0000 12914#+DEV2 DC A (*-* * 1410 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
0000 12924#DEV3 DC A (*¥-* * 1411 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
0000 1293+DEV4 DC A (*-* * 1412 * x 
12944+SCTID EQU DEVI READ TD BUFFER FOR IBIS §& TERN 1013 III GIR III GI IO CGI IC III kk 0K 2k iC 0k 
1295+DCBUF EOU * DCB BUFFER FOR LAST DCB USED 000000 1414 BSO EQU 
0000 1296+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WOPRD 000001 1415 BS1 EQU 1 
0000 1297+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 1416 BS2 EQU 2 
0000 1298+DCB3 DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000003 1417 BS3 EQU 3 
0000 12994+DCBY DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 1418 BS4& EOQU 4 
0000 13004#DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 1419 BS5 EQOU 5 
0000 1301+DCB6 DC Ah (*¥-* LAST DCB TABLE, CHAIN ADRS 000006 1420 BS6 EQU 6 
0000 1302+DCB7 DC A (*~-* LAST DCB TABLE, BYTE COUNT 000007 1421 BS7 EQOU 7 
0000 13034+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 1422 BS8 EOU 8 
1304+ 000009 1423 BS9 EQU 9 
1305+CSPUF EQOU * CYCLE STEAL DATA BUFFER OOOOOA 1424 BS10 EQU 10 
0000 13064+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS O00000B 1425 BS11 EQU 11 
0000 1307+CSTL2 DC A (*-* CYCLE STEAL WD 2, HEVICE DEPEND OO0000C 1426 BS12 EQOU 12 
0000 13084CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 1427 BS13 EOU 13 
0000 13094+CSTLY DC A (*-—* CYCLE STEAL WD 4&4, DEVICE DEPEND OOO00E 1428 BS14 EQU 14 
0000 13104CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOOOOF 1429 BS15 EQOU 15 
0000 1311+CSTL6 DC A (¥-* CYCLE STEAL WD 6, DEVICE DEPEND 1431 COPY 17800 O1DEC76 
0000 1312+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 1432 17800 TIT 1 
0000 13134#CSTL8 DC Rh (*—* CYCLE STEAL WD 8, DEVICE DEPEND 70394 RCI IOI I GIR io ici iokatoiciolk tito 40k) 6 F BB 7 6 
1314+* 1434+* 
0000 1315+S5SUBN DC A eas LAST SUBROUTINE ADDRESS USED 1435+* TEST UNIT 
00000000 13164+$DATA DC 2A (*-* OPTIONAL DATA 1436+* 
0021 1317+SINTL DC xX'0021! INTERRUPT LEVEL REQUESTED 1437+* DIRECT PROGKAM CONTROL TEST UNIT 12/1/76 
0000 1218+TURTN DC ena TEST UNIT RETURN ADRS TO MDI 143 8+* 
0000 1319+$DVID DC x'0000°% DEVICE ID 14394+* PURPOSE 
19D0 1320+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDPESS 1440+* 
0000 eae DC A (*¥-*) IBIS CYLINDER ADDRESS eee THREE PARAMETERS APE NEEDED FOR THE EXECUTION OF THIS TU AND APE 
+ + Z 
1323+%* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 1443+* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X'60' FOR PREPARE 
13244+% FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 14H4uU+* 2. TWO BYTES OF DATA TO BE USED tN PHE SECOND PART OF THE IDCB, 
UE pas STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. ieee Pe IE, X'OO005' TO SELECT LEVEL 2 FOK AN INTERRUPT. 
+ + 
4020 2DA2 3C02 1327+T3C02 MVWI X'3C02',STUID SET UP TEST UNIT ID 1447+* CALLING SECUENCE 
5700 1328+ BXS R7 RETURN TO MDI SUPVR 1448+ 
1330 COPY OM gu 14494+* MDI=OTUXX,T7800,2,0708, EC, PLNG=6, PRAM=FFXXXX' 
1331 RR RTO IORI IC RICO I I ok io i dak dak tk ok ic ak ek ke ok 1450+* 
1332 * * 1451+* RETURN CONTROL 
1333 * EQUATED NAMES FOR SUPPORTED SVC'S * T4524+* 
1334 * * 1453+* B TURTN* RETUPN TO MDY SUPEPVISOR 
1335 AO IIR IORI OR II Ok io gk kadok i a ko lioke gk katoi ak ike stk tk kek ake fe ic ae a of fe fe ak 1454+ 
1336 OUT EQU 0 OUT SVC 1055 4 IOI GR IOI IG OI a IIR Ok IC Fai ak aki ak ak ot ok ai ak 
1337 OUTIN EOU 1 OUTIN SVC OO2ZDEA 6FO0OD 2DDA 14564+T7800 MVW F7,TURTN SAVE RETURN ADDRESS 
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17808 --- CHANNEL INTERFACE TEST P/N=4414134 EC=755285 PAGE 09 17808 --- CHANNEL INTERFACE TEST P/N=4414134 EC=755285 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM COPP 1976 
1917+* THE ERROR INTERRUPT USES THE SAME IL PAIRS RT ES SES SESS SELF SSS STE TESTES ESSELTE TESS LETS STS PSS SES TT CSE TSS SSS SSS SS ES STS SS Ss 
1918+* ENDING SEQUENCE AS THE NOPMAL INTP IL 0030DC OFO06 2035+$CCNC MVBI 6,R7 NUMBER OF FYTE TO CLEAP 
1D DO HHH HHH HK HK HK HK HK KK HK eK ok ok ek kK KKK KK AKKK TUAPRTIATL OO30DE OBOO 2036+ MVBI O,R * AND THE DATA TO USE 
1921+* IL 0030E0 4524 2DAA 2037+ MVA  DEV1,P5 * ALONG WITH THE ADPS TO USE 
19224* SOUBROUTINE TL OO30E4 2BAC 2038+ FFN  R3 (85) * 
1923+* TE 0030F6 CB25 2DA0 20 39+ MVWZ OFTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1924+% OKAY INTEPPUPT RUNS ON INTERRUPT LFVEL 'SINTL! IL OO30FA 4724 2DDE 2040+ MVA  SVCAL,PT7 SET UP TO PEQUEST DCP SUPP DISK 
1925+* TL OO30EE 6016 2041+ SVC. PEQSD * 
1926+* PURPOSE IL 0030FO OFFF 20424 MVEBI -1,P7 SFT UP DELAY FOR IBIS 
192 7+* i 0030F2 BFFF 20434 got *,87 * AND DECPEMENT IT DOWN 
1928+* TO CHECK THE INTFRRUPT AND CONTINUE THE TEST TL OO30F4 4724 30D4 2044+ MVA  IfTBL,R7 SET R7 TO CONTROL BLOCK AND 
1929+* TL 0030F8 6014 2045+ SVC CICE * CONNECT IT TO THIS DEVICE 
13088 CALLING SEQUENCE TL OO30FA 6AD0 0000 2046+ | BN (R6) * EPPOP RETURN TO USER 
+ + 
19 324% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESI ED IL 0030FE 8828 2DD8 30CC 20484$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
1933+* THE ERPOR INTERRUPT HANDLER WILL BRANCH TO THIS POUTINE TL 003104 4724 30C8 20494 MVA TOBLK,P7 SET P7 TO CONTROL BLOCK TO PREPARE 
1934+% AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 003108 4020 2DA4 0708 2050+ MVWI X'O708',SIOIN INITIALIZE CONDITION CODE STORAGE 
19 354+* COMMON SECTION IS HANDLED HERE. IL 00310E CB25 2DA6 2051+ MVWZ S$ISP,R3 * AND CLEAR OLD ISB VALUE 
1936+* IL 003112 6E0D 2DA8 2052+ MVW  P6,LSTIO SET UP ADDPESS THAT STAPTED LAST I/O 
19374+* RETURN CONTROL TL 003116 600Cc 2053+ SVC PpkD * AND CALL ON SUPVP 
1938+* TI, 003118 5601 2054+ BXS (R6,2) RETURN TO USER 
1939+* SVC EXIT RETURN TO USER VIA SUPVR TI 905.64 OA ORI IOI OGIO OIG IGG ik aac) 6 ADR 76 4k 
1940+* IL 2057+ 
VY ER KK HK KK KK HK OK oe ke i a kK KK KOK KE TT 2058+* SUBROUTINE 
003060 7068 19424+INTOK DC X'7O6E! COPY STATUS ANY LEVEL INTO R3 IL 2059+* 
003062 336A 1943+ SRL 13,F3 POSITION INDICATORS IN R3 IL 20604+* DISCONNECT THE INTERRUPT CONTPOL BLOCK AND LOG ERROPS 
003064 4424 2D9C 19444 MVA OPfN1,R4 SET UP BASE ADRS ipe 2061+* 
003068 4c63 19454INTRI TBTS (RU,If SET INTERRUPT RECEIVED IL 2062+* PURPOSE 
00306A 4C28 19464 TBT R4Y,CS IS 'CS IN PROGRESS! ON IL 2063+* 
09306C 1204 19474 JON nT h2 * YFS, BCH AROUND UPDATE IL 2064+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
00306E C328 2DA5 1948+ MVB R3,$IOIN+1 SAVE INTERRUPTING CC CODE IL 2065+* SEI THE 'NO GOOD' CONTPOL BIT, THEN LOG THE DATA THAT HAS 
003072 6F0D 2DA6 1949+ MVW R7,S1SE SAVE INTR STATUS AND DEV ADRS LAG 2066+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE EPROR CONDITION. 
003076 19504INTP2 EQU * TL 2067+* 
1951+% CPCL PS CUPRENT LEVEL COPIED FY DCP IL 2068+* CALLING SEQUENCE 
003076 3521 1952+ SLL 4,R5 POSITION INTR LEVEL AND PUT Tk 206 9+* 
003078 0501 1953+ ABI 1,85 * IN 'I' BIT IL 2070+* THIS SUBPOUTINE HAS THF FOLLOWING ENTRIES: 
00307A CD24 2DD8 1954+ CW SINTL,R5 IS THIS THE CORRECT INTPR LEVEL TL 2071+* 
00307E 1002 1955+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 2072+* --> B SERR$ SET 'NG' BIT AND CONVERT DATA TO LOG 
003080 4Cé66 1956+ TBTS (P4,$LE) SET INTR LEVEL ERROR CONTROL BIT TL 2073+* --> B $SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
003082 4cé61 1957+ TBTS (B4,ER SET EPROP ON I/O COMMAND CNTL BIT IL 2074+* 
003084 4CA2 1958+INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED IL 2075+* RETURN CONTROL 
003086 1204 19594 JON nr hx * YES, EXIT OFF THIS INTR LEVEL Tl 2076+* 
003088 4C60 1960+ TBTS (K4,MI) * NO, SET MYSTFRY INTP CONTPOL BIT IL 2077+* B TUPTN* PETURN TO MDI 
00308A F304 1961+ CBI. 4,R3 ATTENTION TNTERRUPT? TL 2078+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
00308C 1001 1962+ JE IftTRx YES IL 2079+ 
0O0308E 4Cé6C 1963+ TBTS (R4&,NG) ERROR, UNEXPECTED INTERRUPT TL 2080 + 9% RR RR RR OR RR RIOR FRI RR II I RO ff do kak 
003090 6006 1964+INTRX SVC E EXIT THIS LEVEL VIA SUPVR TO PGM IL 00311A 4020 1818 8000 2081+S$ERRS MVWI xX'8000',TUSTATUS SET ON 'NO GOOD' STATUS BIT 
19 6 64 IORI IGRI IK Gitmo CK) 3 PBB 6 x 003120 4724 3290 2082+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
1967+* 093124 601A 2083+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
196 8+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 003126 O0D03 2O844+$ERNT MVBI 3-R5 
1969+ HAS BEEN SERVICED. THE EXEPCISER FINDS AN INTERRUPT HAS BEEN 003128 4324 181A 2085+ MVA  TUWORK,R3 SET UP BUFFER STORAGE 
19 70+* RECEIVED AND BRANCHES HEPE TO CHECK FOR ANY ERROP CONDITIONS. 00312C 6B0D 3288 2086+ MVW R3,BUFPDT 
19714% 003130 4124 31B8 2087+ MVA  LINE1,R1 
1972+# | 003134 OFO4 2088+ MVBI U,RT7 
003092 4CA4 19734+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 003136 O£F08 2089+ MVBI 8,R6 
003094 6ACO 0002 19744 BN RE v2) * YES, EXIT THIS ROUTIWE 003138 2B24 2090+MVBUF MVFN (R3) , (R1) 
003098 4CA8 1975+ TBTR (R4,CS5) WAS AUTO CS IN PROGFESS 003134 OFOY 2091+ MVBI 4 >R 
00309A 1006 1976+ JOFF xX Iocv * NO, CONTINUE CHECKING 00313C OA4O 2092+ MVBI xfuor,R2 
00309C 4C2A 1977+ TBT RG, CE) ts c§ IN AN ERR CONDITION 00313E C258 2093+ MVB  R2 (Ripe 
00309E 1002 1978+ JOFF xtoco * NO, BCH 003140 BEFB 2094+ Jct MVBUF, 
0030A0 68D2 1979+ B R6) * CS ERROR 003142 OF08 2095+ MVBI 8,R6 
0030A4 4c69 1980+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 003144 7921 002Cc 2096+ AWr 44,74 
0030A6 5601 1981+ BXS R672) GO TO USEP 003148 BDF7 2097+ JCT  MVBUF,RS 
0030A8 4C21 19824XIOCV TBT P4,ER) WAS EPPOR INTR CONTROL BIT ON 00314A 4020 1802 F1FO 2098+ MVWI PIDMSG610,PID+2 
0030AA 1008 1983+ JOFF xzrocx * NO, EXIT THIS ROUTINE 003150 4020 19B8 328E 20994 MVA  FPAKETU,@DCADD1 
19844* 003156 4020 19BA 328A 2100+ MVA DC2PT,ODCADD2 
0030AC C520 1985+ MVB $IOIN+1,R5 GET LAST INTR CC CODE 00315C 402c 19C4 0080 2101+ OWI BITO080,SUPSTAT 
0030B0 F502 1986+ CBI 2,R5 TS THIS CC=2 003162 4324 2DA2 2102+ NVA $TUID,R3 SET UP BUFFER STORAGE 
0030B2 68D1 1987+ BNE (Fe) * * NO, BCH TO ERROR HANDLER 003166 6F13 18BA 2103+ BAL TUMSGATR*,R7 GC TO MESSAGE WRITER 
0030B6 C520 2DA6 1988+XIOCQ MVB ISB,R5 Get LAST ISB DATA BYTE AND IF CS 2104+* 
OO0O30BA 6A00 2FD0 1989+ BN xtoc§-4 * AVAILABLE, GO AND GET IT 00316A 2105+SCONX EQU * 
0030BE 68D2 0000 1990+ B {F6)* EPROR 00316A 8028 2DAB 2DE1 2106+ NVB SCTID+1,SVCAL+43 SETUP CURRENT CYLINDER NUM 
0030C2 CB25 2DA0 19914+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 003170 4724 2DDE 2107+ MVA SVCAL,R7 ADDP OF PELEASE PARM LIST 
0030C6 5601 1992+ BXS (R6,25 PETUPN TO USEF VIA PEG 6 003174 6017 2108+ SVC RELSD RELEASE CONTROL 
19934* 003176 C720 19D0 2109+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
19944+* I/O PARAMETER LIST 00317A 6013 2110+ SVC RICB PELEASE INTERRUPT CONTROL BLOCK 
1995+* 00317C 6812 2DDA 2111+ B TURTN* RETURN TO MDI SUPERVISOR 
0030C8 19D0 19964+I0OBLK DC A (DEVADD) ADRS OF DEVICE ADPS 2112+* 
0030CA 3030 1997+ DC A (XIOER) ERROR ROUTINE ADRS 003180 0007 2113+BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
0030CC 0000 1998+IODCB DC A (*-* DCB ADPS OP LEVEL & INTR 003182 0008 21144 DC A (0008 LINE LENGTH = 8 CHAP 
0030CE 0000 19994IOMOD DC A (#— * MODIFIER 093184 SC5SC40CIC2D6D9E3 2115+ DC C'** ABORT! 
0030D0 0000 2000+ DC A (*-* ADRS OF LAST SVC CALL 00318C 0028 2116+ DC A (0040) LINE LENGTH = 4O CHAR 
003002 0000 2001+IORSP DC A (*-* SECOND WORD OF LAST IDCB 00318E E3E4C9C44OC9DEC9D 2117+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ! 
2002+* 0031B6 0028 2118+ DC A (0040) LINE LENGTH = 4O CHAP 
2003+* INTEPRUPT CONTROL BLOCK FOR I/0 COMMANDS 0031B8 4O4O4O4O4O4O4O4O4 211941INE1 DC c' ' 
20044* 0031E0 0028 2120+ DC A (0040) LINE LENGTH = 40 CHAR 
0030D4 19D0 2005+INTBL DC A (DEVADD) ADRS OF DEVICE ADPS 0031E2 C3DS5SE3D340C4C3C2F 2121+ DC C'CNTI DCB2 DCB3 DCB4Y DCBS CHAD BYCT ADRS ! 
0030D6 3060 2006+ DC A (INTOK INTERRUPT OK RETURN ADRS 00320A 0028 2422+ DC A (0040) LINE LENGTH = 4O CHAR 
0030D8 303c 20074 DC A (INTER INTERRUPT ERROR ADRS 00320C 4O4O404OK40K04OKO4 21234LINE2 DC ct ' 
0030DA 0003 2008+INTCC DC X¥*0003' INTERRUPT CODE EXPECTED 003234 0028 2124+ DC A (0040) LUNE LENGTH = 40 CHAR 
2.01 0+ 3 2 IOI II ICI IOI IOI II IG TRE 3k 11M AY 76 4% 003236 D9E2ZCIC4UOC3E260F 2125+ DC C'RSTD CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
2011+* 00325E 0028 2126+ DC A (0040) LINE LENGTH = 40 CHAR 
2012+% SUBROUTINE 003260 40404040404040404 212 7#LINES DC Cc! ' 
+ 
2014+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 003288 0000 2129+#BUFPT DC Atos) 
: 2015+* 00328A 3180 2130+DC2PT DC A (BEGIN) 
2016+* PURPOSE 00328C 0101 2131+FIXTU DC X¥'0101! 
2017+* 00328E 0101 2132+FAKETU DC xX'0101! 
2018+* TO CONNECT THE INTEPRUPT CONTROL BLOCK TO THIS DEVICE AND OOF1FO 2133+PIDMSG10 EQU  X'F1FO! 
2019+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 2134+BIT0080 EOU x*0080! 
2020+* TO INTEPRUPT. 2135+% 
2021+* 2136+* DATA CONTROL BLOCK FOP CONVERTING HEX TO EBCDIC 
2022+* CALLING SEQUENCE 2137+* 
2023+* 003290 0030 2138+HEBLK DC A 48) NUMBER OF BYTES TO CONVERT 
2024+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003292 2DA2 2139+ DC A($T TD) FROM ADRS 
2025+* 003294 181A 2140+ DC A (TUWORK) AND THE TO ADRS 
2026+* --> BAL $CONC,P6 CLEAR DEV DEP STG AND CONNECT I/O BLK 000000 2141 END 
2027+% --> BAL $CONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
+ 
2029+* RETUPN CONTROL 
20304+* 
2031+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
2032+% OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED 
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T7808 --- CHANNEL INTERFACE TEST P/N=4414134 EC=755285 PAGE 11 1/808 -—== CHANNEL INTERFACE TEST P/N=4414134 EC=755285 DASE 1A 
CROSS-REFERENCE LISTING COPYRIGHT IBM :ORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTPIBUTES AND PREFERENCES 

693 N00021 ADDRESS. HEX LOCATION(0000271E) IN CSECT(I7808 ) LENGTH (2) 1458 = 1520 861904 = =1944 

375 79 1254 OPTN3 ADDRESS. HEX LOCATION(O0002DA0) IN CSECT(I7808 ) LENGTH (2) 
705 N00022 ADDRESS. HEX LOCATION (00002734) IN CSECT(I7808 ) LENGTH (2) 1991 2039 
Ae Oe 378 101 PARMARA ADDRESS. HEX LOCATION (00001962) IN CSECT (17808 php ENGTHON 

ADDRESS. HEX LOCATION (00002738) IN CSECT(1I78 
i aces «eee | | is eso praia 4 cL ae a ee 

N ADDRESS. HEX LOCATION(0000274E) IN CSECT(I7808 G 

384 ( ( PENCE?) 972 984 996 1017 1029 1041 1062 1077 1091 
732 N00025 ADDRESS. HEX LOCATION(00002760) IN CSECT(I7808 ) LENGTH (2) 69 PID ADDRESS, HEX ere eae ed aera ee Eo oeNe rey) 
735 N00026 ADDRESS. HEX LOCATION(00002764) IN CSECT(I7808 LENG 80 81 82 83 84 85 86 87 88 

390 721 ( ( as Ga 89 90 91 92 93 94 95 96 97 
738 N00027 ADDRESS. HEX LOCATION(00002768) IN CSECT(I7808 ) LENGTH (2) 98 99 100 8 8=6101 102 «©1033 = 104 105 = 106 

393 709 107 108 (109 110 111 112 2098 
750 N00028 ADDRESS. HEX LOCATION(0000277E) IN CSECT(I7808 ) LENGTH (2) 2133 PIDMSG 10 shee HEX VALUE (OOO0F1FO) 
762 N00029 ADDRESS. HEX LOCATION(00002790) IN CSECT(I7808 ) LENGTH(2) 1348 PREP Hes HEX VALUE (0000000C) 
765 N00030 ADDRESS. HEX LOCATION (00002794) IN CSECT(I7808 ) LENGTH (2) 1359 RELSD payoorees HEX VALUE (00000017) 
768 N00031 ADDRESS. HEX LOCATION (00002798) IN CSECT (17808 ) LENGTH (2) 1358 REQSD shee eee HEX VALUE (00000016) 
780 N00032 ADDFESS. HEX LOCATION(000027AE) IN CSECT(I7808 ) LENGTH (2) 1355 PICB Be ab HEX VALUE (00000013) 
792 N00033 ADDRESS. HEX LOCATION(000027C0) IN CSECT(I7808 ) LENGTH(2) 1294 ScTID Gegr uepe ee aoe IN CSECT(I7808 ) LENGTH (2) 
795 N00034 ADDRESS, HEX LOCATION (000027C4) IN CSECT(I7808 ) LENGTH (2) 1346 STAPT Gag ee HEX VALUE (00000008) 
798 N00035 RODEESS athe LOCATION (000027C8) IN CSECT(I7808 ) LENGTH (2) 104 SUPSTAT eT ani HEX LOCATION (000019C4) IN CSECT(IT7808 ) LENGTH (1) 
8 10 N00036 ADDPESS. HEX LOCATION(000027DE) IN CSECT(I7808 ) LENGTH (2) 1320 SVCAL i oe ee ee IN CSECT(I7808 ) LENGTH (2) 
813 N00037 PDDRESS= HEX LOCATION (000027E2) IN CSECT(I7808  ) LENGTH (2) 92 TUMSGWTR Fe eA HEX LOCATION(OOOO18BA) IN CSECT(1T7808 ) LENGTH (1) 
825 N00038 ADDRESS. HEX LOCATION(000027F8) IN CSECT(I7808 ) LENGTH (2) 76 TUPARM1 shone HEX LOCATION (0000189A) IN CSECT(I7808 ) LENGTH (1) 
828 N00039 ADDRESS: HEX LOCATION(000027FC) IN CSECT(I7808 ) LENGTH (2) 98 TURESUL Woo eens yor eo ee) IN CSECT(I7808 ) LENGTH (1) 
840 NO00040 ADDRESS. HEX LOCATION (00002812) IN CSECT(I7808 ) LENGTH (2) 1318 TURIN Poet seta Rte eee) IN CSECT(I7808 ) LENGTH (2) 
843 NOO O01 ADDRESS. HEX LOCATION (00002816) IN CSECT(1I7808 ) LENGTH (2) 74 TUSTATUS ADDRESS. HEX LOCATION (00001818) IN CSECT(I7808 ) LENGTH (1) 
855 N00042 ADDPESS. HEX LOCATION(00002828) IN CSECT(I7808 ) LENGTH (2) 75 TUWOPK sno ae LOCATION (0000181A) IN CSECT(I7808  ) LENGTH (1) 
858 N00043 ADDRESS. HEX LOCATION(0 82C) INC 1495 T3COOT ADDRESS. HEX LOCATION(O0002F58) IN CSECT (17808 LENGTH (2 

hia eh dE POR AED OO CREE) AN GeeC ttl TOOe. (), LEGIT LZ) hed 1465 1466) Tue) 1uR8 N70, 1a78 4487, 2 
870 NOOO44 ADDRESS. HEX LOCATION (00002842) IN CSECT(I7808 ) LENGTH (2) 1482 TICOON gauge ene HEX LOCATION(OOOO2E40) IN CSECT(I7808 ) LENGTH (2) 
873 NO0045 ADDPESS. HEX LOCATION (00002846) IN CSECT(I7808 ) LENGTH (2) 1487 T3C005 oe anes LOCATION (O0002E48) IN CSECT(I7808 ) LENGTH (6) 
885 NO0046 ADDRESS. HEX LOCATION(00002858) IN CSECT(I7808 ) LENGTH (2) 1488 T3C00X ADDRESS. HEX LOCATION (QOOO2E4E) IN CSECT(I7808 ) LENGTH (6) 
887 NOOO47 ADDRESS. HEX LOCATION(0000285A) IN CSECT(I780 G 1327 T3C02 ADDRESS. HEX LOCATION (00002DE2) IN CSECT(I7808 LFNGTH (6 
se  yotoe,  Poeaae™ an nana «en gag O82 S88 83) agg 22 Tee SHB she 

N ADDRESS. HEX LOCATION(00002870) IN CSECT(I7808 LENGTH (2 

456 ( ) ( ) (2) 1524 T777 ADDRESS. HEX LOCATION(00002E72) IN CSECT(I7808 ) LENGTH (2) 
902 N00049 ADDRESS. HEX LOCATION (00002874) IN CSECT(I7808 ) LENGTH (2) 1525 

459 888 1456 T7800 ADDRESS. HEX LOCATION (0000 2DEA) IN CSECT (17808 ) LENGTH (4) 
914 N00050 ADDRESS. HEX LOCATION(0000288A) IN CSECT(I7808 ) LENGTH (2) 560 590 638 665 680 95 710 740 770 

462 800 815 830 860 889 904 934 964 1009 
926 N00051 ADDRESS. HEX LOCATION(0000289C) IN CSECT (17808 ) LENGTH (2) 1054 1083 

465 1518 T7805 ADDRESS. HEX LOCATION(OOO02E5C) IN CSECT(I7808 ) LENGTH (4) 
929 N00052 ADDRESS. HEX LOCATION(000028A0) IN CSECT(I7808 ) LENGTH (2) 875 1069 

468 915 1684 WRSID ADDRFSS. HEX LOCATION(00002F60) IN CSECT(I7808 ) LENGTH(2) 
932 N00053 ADDRESS. HEX LOCATION(000028A4) IN CSECT(I7808 ) LENGTH (2) 1563 1652 

471 903 1270 XE ABSOLUTE. HEX VALUE (00000024) 
944 N00054 ADDRESS. HEX LOCATION(000028BA) IN CSECT(I7808 ) LENGTH (2) 1911 1973 

474 1268 XI ABSOLUTE, HEX VALUE (00000022) 
956 N00055 ADDRESS. HEX LOCATION(000028CC) IN CSECT(I7808 ) LENGTH (2) 1817 1958 

477 1973 XIOCK ADDRESS. HEX LOCATION(00003092) IN CSECT(I7808 ) LENGTH (2) 
959 N00056 ADDRESS. HEX LOCATION(000028D0) IN CSECT (17808 ) LENGTH (2) 1827 

480 945 1980 XTOCO ADDRESS. HEX LOCATION (000030A4) IN CSECT(I7808 ) LENGTH (2) 
962 N00057 ADDRESS. HEX LOCATION(000028D4) IN CSECT(I7808 ) LENGTH (2) 1978 

483 933 1797 XIOCS ADDRESS. HEX LOCATION(O0002FD4) IN CSECT(I7808 ) LENGTH (6) 
974 N00058 ADDRESS. HEX LOCATION(O00028EA) IN CSECT (17808 ) LENGTH (2) 89 

486 1982 XIOCV ADDRESS. HEX LOCATION(000030A8) IN CSECT(I7808 ) LENGTH (2) 
986 n00059 ADDRESS. HEX LOCATION (000028FC) IN CSECT(I7808 ) LENGTH (2) 1976 

489 1991 XTOCX ADDRESS. HEX LOCATION (000030C2) IN CSECT(I7808 ) LENGTH(4) 
998 N00060 ADDRESS. HEX LOCATION(0000290E) IN CSECT(1I7808 ) LENGTH (2) 1983 

492 1866 XTOER ADDPESS. HEX LOCATION (00003030) IN CSECT(I7808 ) LENGTH (2) 
1001 N00061 ADDRESS. HEX LOCATION (00002912) IN CSECT(1I7808 ) LENGTH (2) 1997 

495 987 1801 XI01 ADDRESS. HEX LOCATION(OOOO2FE4) IN CSECT(I7808 ) LENGTH (4) 
1004 N00062 ADDRESS. HEX LOCATION(00002916) IN CSECT(I7808 ) LENGTH (2) 

498 975 1814 XI02 ADDRESS. HEX LOCATION(0000300A) IN CSECT(I7808 ) LENGTH (2) 
1007 N00063 ADDRESS. HEX LOCATION(0000291A) IN CSECT(I7808 ) LENGTH (2) 1800 

501 63 18 26 XTO8 ADDRESS. HEX LOCATION(0000301E) IN CSECT(I7808 ) LENGTH(2) 
1019 N00064 ADDRESS. HEX LOCATION(00002930) IN CSECT(I7808 ) LENGTH(2) 1831 
103 . 7 

1 NO0065 eae HEX LOCATION (00002942) IN CSECT (17808 ) LENGTH (2) We ee he he He a a he 2 eee ake ok ie ok ak Rk kk ak cok kak HOKE PAST DAG E 2% oR KK ok KK RK tk gO KR kK ko KR oR tk ok eo KE 

1043 N00066 ADDRESS. HEX LOCATION(00002954) IN CSECT(I7808 ) LENGTH (2) 
10 46 N00067 ADDRESS, HEX LOCATION (00002958) IN CSECT(I7808 ) LENGTH (2) 
1049 N00068 ADDRESS. HEX LOCATION (0000295C) IN CSECT(I7808 ) LENGTH (2) 
1052 N00069 ADDRESS. (HEX LOCATION (00002960) IN CSECT(I7808 ) LENGTH (2) 
1064 N00070 ADDRESS. HEX LOCATION (00002976) IN CSECT(I7808 ) LENGTH (2) 
1067 N00071 ADDRESS. HEX LOCATION (0000297A) IN CSECT(I7808 ) LENGTH (2) 
1079 N00072 ADDRESS. HEX LOCATION(0000298C) IN CSECT(I7808 ) LENGTH (2) 
1081 N00073 ADDRESS. HEX LOCATION(0000298E) IN CSECT(I7808 ) LENGTH (2) 
1093 N00074 ADDRESS. HEX LOCATION(000029A4) IN CSECT(I7808 ) LENGTH (2) 
1096 N00075 ADDRESS. HEX LOCATION (000029A8) IN CSECT(I7808 ) LENGTH (2) 
1231 OPTN1 ADDRESS. HEX LOCATION(00002D9C) IN CSECT(I7808 ) LENGTH (2) 


